1 REM +++++++++++
2 REM + LOGIKER +
3 REM +   AM    +
4 REM + 27. NOV +
5 REM +  1993   +
6 REM +++++++++++ ..(C)  FREEWARE
9 POKE 53280,2:POKE 53281,2
10 PRINT"[147]";
15 FOR N=1TO9:PRINT"                                        [146]";:NEXT
21 GET A$:IF A$<>" " THEN 21
25 PRINT:PRINT
30 PRINT"[147] AUSTRIA V1.0 [146]"
35 PRINT SPC(25) "  [172][191][191][146][162]"
40 PRINT SPC(25) "  [161][146]   [162][162][146][162][162][162][146][162]"
45 PRINT SPC(22)"[188][146]";SPC(3)"[172][190]";SPC(9)"[161]"
50 PRINT SPC(20)"[162][190][146] [162][146][191][162][146][191][187]";SPC(9)"[161]"
55 PRINT SPC(19)"[172][190]";SPC(6)"[161][146]";SPC(9)"[161]"
60 PRINT SPC(18)"[162][190]";SPC(7)"[161][146]";SPC(9)"[191]"
65 PRINT SPC(17)"[191][146]";SPC(7)"[191][162][146][190]";SPC(9)"[162][161]"
70 PRINT SPC(17)"[191][162][187]";SPC(5)"[191][187]";SPC(8)"[162][191][146] [191]"
75 PRINT SPC(17)"[161][146] [161][146]      [161][146]       [161][146]   [161]"
80 PRINT SPC(18)"[161] [187][146]    [172][191][146][162][191][162][146][191][187]  [161][191][162][146][162][190]"
85 PRINT SPC(11)"[172][162][162][162][146][191][162][146][187][161][146] [161][161][162][162][146][191][190]     [188][161] [191][188][191]"
90 PRINT"[145]  [187]"
95 PRINT" [191][146][188][191] [191][162][146][191]  [191][146][190]    [161][188][190] [188][191][146]";SPC(10)"[188][191][191][146][172][190]"
100 PRINT"[172][190] [188][162][190]  [162][162][146]     [162][190]    [161]";SPC(11)"[172][190][191]"
105 PRINT" [161]  [161]";SPC(8)"[161][162][146]      [188][191]";SPC(10)"[161][146] [161][146]"
110 PRINT" [191][187][172][190]";SPC(8)"[190][146][162][162][146][162][162] [172][162][187][161][146][172][187]";SPC(8)"[161][146] [190][146]"
115 PRINT"  [188][191][191][146][161]  [172][162][162][162][162][161][146]  [188][187][162][146][190] [188][162][190][188][162][162][162][146][187]    [188][191][146]"
120 PRINT"     [188][162][146][162][191][146]     [191]  [191]";SPC(10)"[161]    [161][146]"
125 PRINT SPC(15)"[191][162][161]";SPC(10)"[188][146][162][162][191][162][146][190]"
130 PRINT SPC(17)"[188][162][162][162][146][162][162][162]   [191][146]"
135 PRINT SPC(24)"[162][162][191][146]"
140 GET A$:IF A$<>" "ANDA$<>"E"THEN140
141 IF A$="E"THENPRINT"[147]":END
145 PRINT"[147]       KAERNTEN [146]"
150 PRINT"   [191][162][146][162] [191][162][146][185][185]  [172][191][146][162][172][162][162][162]"
155 PRINT"   [161][146]  [162][146]    [191][162][190]  [190]   [191]"
160 PRINT"   [188][187]";SPC(15)"[161][146]"
165 PRINT"    [188][187]";SPC(15)"[161]"
170 PRINT"   [172][162][146]";SPC(16)"[161]"
175 PRINT"   [188][162][162][162]";SPC(13);"[191][146]"
180 PRINT"       [162][162][162][146][191][162][162][162]    [172][191][146]"
185 PRINT SPC(14)"[162][162][162][146][162][190]"
190 GET A$:IF A$<>" " THEN 190
195 PRINT"[147]  VORARLBERG [146]"
200 PRINT"     [191][146][162]"
205 PRINT"    [191][146]  [191]"
210 PRINT"    [161][146]  [188][187]"
215 PRINT"   [172][190]   [161][146]"
220 PRINT"    [161]   [161][146]"
225 PRINT"    [161]   [161][146]"
230 PRINT"    [191][162]  [161]"
235 PRINT"      [191] [161]"
240 PRINT"       [162][146]"
245 GET A$:IF A$<>" " THEN 245
250 PRINT"[147]   OSTTIROL [146]
255 [153]"      NEWRND
260 PRINT"    [172][191][146] [188][187]
265 [153]"    GET   GET
270 PRINT"    [191]   [188][187]
275 [153]"     GET   LOGRND
280 PRINT"     [188][187] [172][162][146]
285 [153]"      LOGNEWWAITCOS
290 GET A$:IF A$<>" " THEN 290
295 PRINT"[147]          TIROL [146]
300 [153] [166]19)"COSWAITNEW
305 PRINT"      [187][162]      [172][162][162][162][162][190] [162][146][187]
310 [153]"     GETWAITLOG NEWWAITGET   *COS       SIN
315 PRINT"     [161][146]   [188][162][162][190][146][190]        [191][146]
320 [153]"    *COS             *NEWSINWAIT
325 PRINT"   [172][190]             [191][146][190]
330 [153]"   GETWAIT              GET
335 PRINT"   [161]             [162][190]
340 [153]"   GETNEWSIN     NEWNEWSINNEWNEWWAITSINNEWWAIT
345 PRINT"  [188][162][190][188][162][187]  [191][146]
350 [153]"       LOGNEWNEWCOS
355 GET A$:IF A$<>" " THEN 355
360 PRINT"[147]      SALZBURG [146]
365 [153]"        SINNEWWAITNEWSIN
370 PRINT"        [161][146]  [191][146]
375 [153]"        GETWAIT  SINRND
380 PRINT"        [188][187]  [191][146]
385 [153]"      SINWAITRND GETWAIT  GETWAIT
390 PRINT"      [161][191] [161]  [161][146]
395 [153]"      GETWAIT NEWWAIT   LOGRND
400 PRINT"     [191][146][190]      [161]
405 [153]"  SINNEWNEWWAIT        SINNEW
410 PRINT"  [161]            [191]
415 [153]"  SINSINNEWNEWWAITNEWRND   RND   *COS
420 PRINT"       [188][191][162][191][146][188][162][146][191] [161]
425 [153] [166]14)"RNDWAIT
430 GET A$:IF A$<>" " THEN 430
435 PRINT"[147]   OBEROESTERREICH [146]
440 [153]"         GETNEWWAITRND
445 PRINT"       [162] [161][146] [191][162][187][191][146][191][187]
450 [153]"      GETWAIT NEWWAITCOS   LOG  LOGSIN
455 PRINT"      [161][146]          [161][146]
460 [153]"     NEWCOS           GET
465 PRINT"   [162][162][146]          [187] [172][161]
470 [153]"  SINWAIT           GETWAITLOGNEWWAITCOS
475 PRINT"  [161][162]          [161]
480 [153]"  LOG NEWNEWWAITGET       LOGNEW
485 PRINT"     [161][146]          [191]
490 [153]"     LOGNEWNEW        GET
495 PRINT"       [191] [172][162][187]   [162][190]
500 [153]"       GETWAIT GET LOGNEWWAITNEWNEWWAIT
505 PRINT"       [191][146] [161]
510 [153]"       LOGNEWWAIT
515 GET A$:IF A$<>" " THEN 515
520 PRINT"[147]       STEIERMARK [146]
525 [153] [166]15)"NEWNEWWAITNEW
530 PRINT"    [172][162][187]   [162][162][162][162][162]   [191]
535 [153]"    GET LOGNEWWAITNEWNEWWAIT         NEWWAITGET
540 PRINT"    [161]";SPC(15)"[188][162]
545 [153]"  GETNEWWAIT";[166]16)"*COS
550 PRINT"  [161][146]";SPC(18)"[191]
555 [153]"   SINSIN";[166]16)"GETWAIT
560 PRINT"     [191]";SPC(16)"[161]
565 [153]"     SINWAIT NEW             GETWAIT
570 PRINT"    [172][190][191][146] [162][162][162][162][162][146][187]       [172][190]
575 [153]"    LOGNEWWAIT       GETWAIT       GET
580 PRINT SPC(13)"[161][146]       [161]
585 [153] [166]13)"GETWAIT       GET
590 PRINT SPC(13)"[161][146]    [162][162][162][190]
595 [153] [166]14)"NEWNEWNEWNEWWAIT
600 GET A$:IF A$<>" " THEN 600
605 PRINT "[147]  BURGENLAND [146]
610 [153]"       *NEWSINWAITRND
615 PRINT"     [172][172][190]  [161]
620 [153]"    *COSCOS  *COS
625 PRINT"    [191][146] [172]  [188][187]
630 [153]"    SIN*COSNEWSINNEWWAIT
635 PRINT"    [161][146] [162][146][187]
640 [153]"    SINWAIT  GET
645 PRINT"  [172][162][146] [172][191][146]
650 [153]"  SIN  SIN
655 PRINT"  [161][146]  [161][146]
660 [153]"   GET LOGRND
665 PRINT"  [161][146]  [188][187]
670 [153]"  *COSSINNEWWAIT
675 PRINT"  [161][191][146]
680 [153]"  NEWWAIT
685 GET A$:IF A$<>" " THEN 685
690 PRINT "[147]  NIEDEROESTERREICH [146]
695 [153]"     *NEWNEWWAITSINRND
700 PRINT"     [161]   [188][162][162][146][187]
705 [153]"    NEWCOS      LOGSINNEWNEWNEWNEWWAITNEWRND
710 PRINT"   [161][146]";SPC(15);"[161][146]
715 [153]"   GET";[166]15);"GETWAIT
720 PRINT"   [188][187]";SPC(14);"[191][146]
725 [153]"    GETWAIT";[166]14);"GET
730 PRINT"     [161]         [172][187]  [161][146]
735 [153]"  RND *GET        SINWAITCOSGETWAIT   GET
740 PRINT" [161][146][188][162][146][190]         [191][162][191][146]   [161][146]
745 [153]" GET";[166]16);"*NEWNEWWAIT
750 PRINT" [188][162]";SPC(13);"[187][187][190]
755 [153]"   SIN";[166]11);"*COSCOS
760 PRINT"   [161]   [162][162][146][162]     [191][146]
765 [153]"   LOGNEWNEWNEWWAIT   SIN    SIN
770 PRINT SPC(11);"[162][146][161]  [161][146]
775 [153] [166]12);"LOGNEW SINWAIT
780 PRINT SPC(14);"[162][146]
785 [161] A$:[139] A$[179][177]" " [167] 785
790 [153] "LOAD  WIEN WAIT
795 PRINT"   [172][187]
800 [153]"  SINWAITCOSGETWAIT
805 PRINT"  [191][162][191][146][190]
810 [161] A$:[139] A$[179][177]" " [167] 810
815 [137]30